Option Explicit
Sub A_Sample020()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Cells(Rows.Count, 1)	'o̤U誺xs
    With myRng1
        If Len(.PrefixCharacter & .Formula) > 0 Then
            Set myRng2 = myRng1		'Y̤U誺xsŦX
        Else
            With .End(xlUp)
                If Len(.PrefixCharacter & .Formula) > 0 Then
                    Set myRng2 = .Cells(1)
                End If
            End With
        End If
    End With
    If myRng2 Is Nothing Then
        MsgBox "SJ"
    Else
        MsgBox myRng2.Address
    End If
    Set myRng1 = Nothing			'
    Set myRng2 = Nothing
End Sub
